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! Macros for Pascal Run-Time b tbrary 
; File: PASMACROS.REQ, Edit: SBL100 


SRR RRR EERE REE EERE EEE EEE 


:* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


* 

® 

® 

® 

* 

* 
Ne S * 
is COPIES THEREOF NAY NOT BE PROVIDED OR OTHERWISE t 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF TH * 
ie TRANSFERRED. . 
* 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* 

® 

* 

* 

® 

*® 

® 

® 


I Ic 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL MEN 
t* CORPORATION. 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


N 
G Qul 


LR REESE AREER REE RARE ERE EERE EATER EEE 
' 


i Author: Steven B. Lionel, 1-April-1981 


! 
! 
! 1-001 = Original. SBL 1-April-1981 

! 1-002 - Change SPASSRMS _OP so that it doesn't loop on RMS$_ACT unless the 
‘ ile is on a diSk device. SBL 29-July-1 

} 1-003 - Make that a disk or tape device. SBL 29-July-1982 


Macro to signal a Pascal bugcheck. 


ACRO 
ee ae (bugname) = 
PASSSBUGCHECK (bugname) ; 
RETURN 0; 
'¢ 
i Macro to signal an 1/0 error. The source code specifies the first 
' message as a PAS$_xxx symbol. This macro changes it to a PASSK_xxx 


i symbol to result in shorter code. If it is desired to chanes back, 
i |r this macro need be modified. 


MACRO 


'¢ 
! Internal macro MOD_SIG_NAME takes as its argument a sequence 


GRRE ae ec oe ee eS oa 
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PASMACROS REQ; 1 16-SEP-1984 16:52:18.99 Page 
: of characters which is the exploded PAS$_ xxx signal name and returns 
the equivalent name PASSK_xxx. It is only used by SPASSIO_ERROR. 


MOD_SIG_NAME (cP,cA,cS,c$,¢_) = 
UNARME ('PASSK_',ZREMAINING) %, 


vale + pes (signame) = 


PASS$SIGNAL (PFV CPFVSR_PFV], MOD_SIG_NAME (%EXPLODE (signame)) 
X1F ENULL CRREMAININGY 


XELSE 
, REMAINING 
FI 
RETURN 0; 
END %; 


14 
: Macro to do an RMS operation with retry for RMS$_ACT if a disk or tape device. 


ACRO 
SPASSRMS_OP (rms_op) = 
BEGIN 


SSSTATUS; 
DO $$STATUS = (rms “oH UNTIL (.$$STATUS OR (.$$STATUS NEQ RMS$_ACT) 
OR NOT .FCB CFCB$V_FODJ); 
. $$STATUS 
END %; 
+ 
Structure definitions used to declare the FAB and NAM as being offset from 
FCB. To use, make the following declarations: 


BIND 
FAB 
NAM 


FCB: REF $PASS$FA6_FCB_STRUCT, 
FCB: REF SPASS$NAM_FCB_STRUCT; 


STRUCTURE 
SPASSFAB_FCB_STRUCT C(O, P, S, E] = 
CFABS 


(SPASSFAB_FCB_STRUCT+RABS$C_BLN+0)<P,S,E>, 
SPASSNAM_FCB_STRUCT ([O, P, S, EJ = 
CNAM$C_BCN 
(SPASSNAM_FCB_STRUCT+RABSC_BLN+F ABSC_BLN+0)<P,S,E>; 
: End of file PASMACROS.REQ 
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